0 POKE788,52:POKE657,128:S=53280:GOTO100
1 DATA"HERE ARE WINNI AND ICON OF TIGERCREW ON THE KEYS TO GIVE YOU SOME INFO"
2 DATA"RMATIONS  ABOUT THIS FIRST BASIC-GAG-NOTER! :     1) YOU ONLY CAN CHAN"
3 DATA"GE TYPED CHARS UNTIL   THE FLASHING OF THE SCREEN! - TYPING    A CHAR "
4 DATA"AFTER FLASHING WILL TAKE THE     UNTIL THIS TYPED TEXT IN MEMORY!     "
5 DATA"2) YOU ONLY CAN CHANGE YOUR TEXT BY        USING THE 'CURSOR-LEFT-KEY'"
6 DATA" AND         TYPING ALL CHARS A SECOND TIME!      3) USING 'CLEAR SCRE"
7 DATA"EN' - F2 - DON'T       ONLY CLEAR THE SCREEN, IT ALSO          CLEARS "
8 DATA"THE WHOLE TEXT IN MEMORY!     4) WE WANNA WISH YOU A VERY HAPPY TIME  "
9 DATA"   BY USING OUR SHITTY GAG-NOTER !!              WINNI AND ICON / TC  "
98 II=INT(RND(0)*14)+1:RETURN
100 PRINT"[147]";:POKES,6:POKES+1,6:POKE53265,11
110 PRINT"[155]GAG NOTER V1.0"
120 PRINT"1995 BY WINNI & ICON OF TIGER CREW"
130 PRINT"[159]R : READ"
132 PRINT"[154]E : EDIT NOTE":PRINT"D : DIRECTORY":PRINT"S : SAVE"
133 PRINT""
134 FORI=1TO39:PRINT"[155][163]";:NEXT
135 PRINT"SOME INFOS ABOUT THIS LAME NOTER:"
136 PRINT"[155]THIS NOTER WAS WRITTEN ON 24+25/12/1995";
137 PRINT" BY THE TC MEETING IN SINNTAL.
138 [153]"SYSIN THE EDIT MODE PRESS F1 TO END TEXT":[153]"RETURN TO RETURN TO";
139 [153]" MENU (WITHOUT TEXT)":[153]"F2 TO CLEAR SCREEN.LIST"
140 [129]I[178]1[164]39:[153]"TAB(";:[130]:[151]53265,27
141 [161]X$:[139]X$[178]""[167]141
150 [139]X$[178]"R"[167][141]2000:[137]100
160 [139]X$[178]"E"[167][141]2000:X[178]1:[137]330
161 [139]X$[178]"S"[167]3000
300 [139]X$[178]"D"[167][141]49000:[137]100
310 [137]141
330 [141]5000
331 [153]"":[151]214,16:[151]211,30:[158]58640:[153]"END!WAITLIST":[151]204,0
340 [161]A$:[139]A$[178]""[167]340
341 [139]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]""[167]340
342 [139]A$[178][199](13)[175]B$(1)[178]""[167][151]204,128:[137]100
343 [139]A$[178][199](13)[167]340
344 [139]A$[178]"CMD"[175]Q[177]0[167]Q[178]Q[171]1:[153]A$;:B$(X)[178][200](B$(X),Q):[137]340
345 [139]A$[178]"CMD"[175]Q[178][179]0[167]340
346 [139]A$[178]""[167]340
347 [139]A$[178]"LOAD"[167]340
348 [139]A$[178][199](18)[167]340
349 [139]A$[178][199](137)[167][141]5000:[153]"LOAD":[137]330
350 [139]A$[178][199](133)[167][151]204,128:[137]1010
360 [153]A$;:B$(X)[178]B$(X)[170]A$:Q[178][195](B$(X)):[139]Q[177]69[167]X[178]X[170]1:Q[178]0
361 [139]Q[177]68[167][141]4000
365 [139]X[177]9[167][151]204,128:[137]1010
390 [137]340
1010 [139]B$(1)[178]""[176]B$(1)[178]" "[167]100
1011 [153]"LOAD":[129]X[178]1[164]9:[153]X;"DATA";[199](34);B$(X);[199](34):[130]
1012 [153]"RUN"
1015 [153]"";
1020 [129]B[178]631[164]640:[151]B,13:[130]
1030 [151]198,10:[128]
2000 [153]"LOAD":[129]T[178]1[164]9
2001 [135]A$:[153]A$;:[139]X$[178]"R"[167][141]98:[151]53281,II:[129]JJ[178]1[164]500:[130]
2002 [130]:[151]53281,6:[140]
2003 [139]X$[178]"E"[167][142]
2004 [151]198,0:[146]198,1:[151]198,0
2010 [142]
3000 FI$[178]"":[153]"LOAD":[133]"FILENAME : ";FI$
3010 [139]FI$[178]""[167]100
3020 [148]FI$,8:[138]
4000 [129]H[178]1[164]3:[129]G[178]0[164]15:[151]S,G:[151]S[170]1,G:[130]:[130]:[151]S,6:[151]S[170]1,6:[142]
5000 [129]K[178]1[164]9:B$(K)[178]"":[130]:X[178]1:[142]
49000 [153]"LOAD":[159]1,8,0,"$":[151]781,1:[158]65478:[161]A$,A$:E$[178][199](0)
49010 [161]A$,A$,H$,L$:[139]ST[167][158]65484:[160]1:[137]49045
49020 [153][198](H$[170]E$)[170]256[172][198](L$[170]E$);
49030 [161]A$,B$:[139]A$[167][153]A$B$;:[137]49030
49040 [153]A$:[137]49010
49045 [153]" PRESS A KEY !LIST"
49050 [151]198,0:[146]198,1:[151]198,0:[153]"LOAD":[142]